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SEQ 0001 
SEQ 0001 
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PRODUCT CODE: 
PRODUCT name: 
PROGRAM DATE: 
MAINTAINER: 
AUTHORS : 
REVISED BY: 



AC-8532D-MC 

CZDLODO DL11 OVRLY FOR ITEP 

MARCH 1978 

DIAGNOSTICS 



R A JONES 
JOHN EGOLF 

FAY BASHAW 



1/21/75 



THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT 
NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES 
NO RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 

NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR IT'S 
AFFILIATED COMPANIES. 

COOPYRIGHT (C)1974, 1978 BY DIGITAL EQUIPMENT CORPORATION 

THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 

DIGITAL PDP UN I BUS MASSBUSS 

DEC DECUS DECTAPE 
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SEQ 0002 

SEO 0002 



1 .0 ABSTRACT. 

THIS PROGRAM IS DESIGNED AS A MAINTENANCE AID FOR 

FIELD SERVICE PERSONEL. H wl Ll VERIFY THE PROPER OPERATION 

OF A COMPLETE COMMUNICATION LINK FROM ONE PDP-11 

SYSTEM TO ANOTHER OR TO A COMMUNICATION I EST CENTER. 

THIS PROGRAM MUST BE USED IN CONJUNCTION WITH THE INTERPROCESSOR 
TEST PROGRAM(DZITP) ON A PDP-11 SYSTEM WITH A DL-11 INTERFACE. 

2.0 REQUIREMENTS. 

2.1 EQUIPMENT 

A. PDP-1 1 SYSTEM WITH 4K OF CORE. 

B. A CZDLODO DL11 COMMUNICATION INTERFACE. 

2.2 STORAGE. 

4K OF CORE 

3.0 LOADING PROCEDURE 

THIS PROGRAM IS IN ABSOLUTE FORMAT. 

THE ABS LOADER MUST BE USED TO LOAD THE PROGRAM. 

4.0 OPERATING PROCEDURES. 

A. TWO METHODS OF ENTERING PARAMETERS ARE PROVIDED 

1. LOAD ADDRESS 200 AND START TO ENTER PARAMS FROM CONSOLE TTY. PROCEED TO SECTION B. 

2. LOAD ADDRESS 200 AND SET SWITCH REGISTER BIT 15 BEFORE 
STARTING TO ENTER PARAMS FROM CONSOLE SWITCHES, PROCEED TO SECTION C. 

*THE PROGRAM MAY BE RESTARTED AT LOC 204 (ONCE PARAMETERS HAVE ALREADY BEEN SELECTED) 

B. CONSOLE DIALOGUE PARAMETER INPUT (CURRENT VALUES FOR PARAMETERS ARE FOUND IN OVERLAY) 



1 . THE PROGRAM WILL TYPEOUT THE NAME OF THE VARIABLE OVERLAY. 

A. IF YOU WISH TO SETUP JUST THE INDICATED UVtKLAY . TYPE A CaRaGE RETURN 

B. IF YOU WISH TO SETUP A DN1 1 . TYPE IN DN . 

C. IF YOU WISH TO SETUP A DM1 1BB, TYPE IN DMB. 

IF DN OR DMB WAS TYPED IN STEP 1 ABOVE THEN THE BUS ADDRESS. 

VECTOR ETC. REFERED TO IN STEF-J 2 THRU 7. PERTAIN TO THE DN11 OR DMBB. 

2. THE PROGRAM WILL TYPE THE DEFAULT BUS ADDRESS OF THE INTERFACE UNDER TEST. 

A. TYPE A CAR. RETURN TO USE DEFAULT BUS ADDRESS 

B. TYPEIN ACTUAL BUS ADDRESS 

3. THE PROGRAM WILL TYPE OUT THE DEFAULT VECTOR ADDRESS 

A. TYPE A CAR. RETURN TO USE DEFAULT ADDRESS 

B. TYPEIN ACTUAL VECTOR ADDRESS 

4. THE PROGRAM WILL TYPE OUT THE DEFAULT INTERFACE PRIORITY 
NOTE: 200=PRIO 4, 240=PRIO 5, 300=PRIO 6. ETC. 
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A. TYPE A CAR. RETURN TO USE DEFAULT VALUE 

B. TYPEIN ACTUAL VALUE 

5. THE PROGRAM WILL TYPEOUT THE DEFAULT VALUE OF PARAIV1#1 
IF REQUIRED BY THE ISR.(SEE SECT. 10.0 IN OVERLAY LISTING FOR PARAMETER DESCRIP i ION ) 

A. TYPE A CAR. RETURN TO USE DEFAULT VALUE 

B. TYPEIN ACTUAL VALUE 

6. THE PROGRAM WILL TYPEOUT THE DEFAULT VALUE OF PARAM#2 
IF REQUIRED BY THE ISR. 

A. TYPE A CAR. RETURN TO USE DEFAULT VALUE 

B, ENTER ACTUAL VALUE 

7. THE PROGRAM WILL TYPEOUT THE DEFAULT VALUE OF PARAM#3 
IF REQUIRED BY THE OVERLAY. 

A. TYPE A CAR. RETURN TO USE DEFAULT VALUE 

THE DN-11 WILL USE PARAM #3 AS THE If TO DIAL. 
IF USING A MODEM WITHOUT AUTOMATIC HANDSHAKING, 
THE NUMBER MUST TERMINATE WITH A 
"END-OF-NUMBER" CHARACTER (:). 

B. ENTER ACTUAL VALUE. 

8. THE PROGRAM WILL RETURN TO STEP B1 IF THIS SETUP 
WAS FOR DN11 OR DM1 IBB. 

9. THE PROGRAM WILL REQUEST THAT SWITCH REGISTER BE SET. 

A. SETUP SWITCH REGISTER AS SPECIFIED IN STEP D. 
AND TYPE A CAR. RETURN. 

NOTE: IF ANY OF THE ABOVE ITEMS 2 THRU 7 WERE CHANGED BY ENTERING 
NEW VALUES. THE NEW VALUE BECOMES THE DEFAULT VALUE FOR SUBSEQUENT 
RESTARTS OF THE PROGRAM. 



SEQ 0003 

SEQ 0003 
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SEQ 0004 
SEO 0004 



C. MANUAL PARAMETER INPUT FROM SWITCH REGISTER 

1. THE PROGRAM HALTS FOR I SR ( INTERFACE SERVICE ROUTINE) SPECIFICATION 
SWR14=SETUP DM-113 ISR 

SWR13=SETUP DN-11 ISR 
SWR=000000=SETUP VARIABLE ISR 

2. THE FOLLOWING HALTS ARE REPEATED FOR EACH ISR SPECIFIED. 

SETUP SEQUENCE IS: DNI 1 ,DM1 1-BB THEN VARIABLE OVERLAY. (EACH ENTRY SET SWICHES THEN HIT CONTINUE,) 

A. HALT FOR BUS ADDRESS OF INTERFACE 

B. HALT FDR VECTOR ADDRESS OF INTERFACE 

C. HALT FOR PRIORITY OF INTERFACE 

D. HALT FOR INTERFACE PARAM #1 (SEE SECT. 10.0 IN OVERLAY LISTING FOR PARAMETER DESCRIPTION) 

E. HALT FOR INTERFACE PARAM U2 (DN11 AND DMBB PARAMETERS ARE DISCUSSED IN SECT* 10.0 OF THE ^ONITOH* 

F. GO BACK TO STEP A IF THIS SETUP WAS FOR DN OR DMB. 

3. HALT FOR OPERATIONAL SWITCH SETTINGS. (SEE STEP D.) 
A. PRESS CONTINUE TO START TESTING 

BEFORE ATTEMPTING TO RUN THIS PROGRAM. THE OPERATOR MUST 

ACCERTAIN THE COMPLETE COMMUNICATION LOOP AND PROCEEDURES 

TO BE USED, INCLUDING THE TYPE OF MODEMS, THE TYPE OF 

INTERFACE BEING USED AT THE OTHER CPU AND THE MODES OF OPERATION, 

DATA AND PARAMETERS TO BE USED AT EACH CPU. 

THIS WILL REQUIRED VOCAL COMMUNICATION WITH THE OPERATOR 
AT THE OTHER CPU UNLESS ITS CONFIGURATION AND OPERATION 
ARE FIXED AS A TEST CENTER. 

AFTER DETERMINING THAT THE EQUIPMENTS ARE COMPATIBLE AND 
AGREEING ON THE MODE AND VARIABLE PARAMETERS TO BE USED, 
THE SYSTEM WHICH IS TO RECEIVE DATA FIRST SHOULD BE 
LOADED AND STARTED. IF THE MODEM BEING USED ON THIS SYSTEM 
HAS AN AUTOMATIC ANSWER FEATURE, IT SHOULD BE ENABLED. 

THE SYSTEM WHICH IS TO TRANSMIT FIRST SHOULD THEN BE LOADED 
AND STARTED AND THE CONNECTION ESTABLISHED EITHER MANUALLY 
OR AUTOMATICALLY (VIA DN-11). 
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SEQ 0005 
SEO 0005 



D. OPERATIONAL SWITCH SETTINGS. 
SW15=1 HALT ON ERROR 
SW14=1 SINGLE PASS 

SW14 HAS NO EFFECT IF SW04=0 
SW13=1 INHIBIT ERROR TYPEOUTS 
SWi2=1 INHIBIT ALL TYPEOuTS EXCEPT ERRORS 

IF SW12=0 AND SW04=1 END PASS IS TYPED 

AND TRANSMITTED/RECEIVED DATA IS TYPED. 
SW11=1 USE PREVIOUSLY SPECIFIED DATA 
SW10=1 DATA SELECT ^/ITH SW09) 
SW09=1 DATA SELECT wITH SW10) 

00 = 1 GET DATA FROIVl OPERATOR 

01=1 TEST MESSAGE if^ ($A QUICK BROWN FOX) 

10=1 TEST MESSAGE #2 ($B NUMERICS) 

11=1 TEST MESSAGE #3 ($C COMTEST/QUICK BROWN FOX/NUMERICS) 
SW0B=1 TRANSMIT RECEIVED DATA (INTERNAL LOOPBACK MODE) 
SW07=1 DO NOT TEST RECEIVED DATA 

SW06=1 MONITOR TRANSMITTED DATA ON CONSOLE TTY.* 

SW05=1 MONITOR RECEIVED DATA ON CONSOLE TTY.* 

* IN MANY CASES, NOT ALL DATA WILL APPEAR ON THE CONSOLE 
TTY. THIS IS ESPECIALLY TRUE WHEN THE COMM INTERFACE IS 
RUNNING AT A FASTER BAUD THAN THE CONSOLE. BUT EVEN AT EQUAL 
OR SLOWER BAUDS, ALL CHARACTERS MAY NOT APPEAR ON THE CONSOLE. 

SW04=1 RETURN TO MONITOR FOR END PASS 

WHEN SW04=0 PROGRAM LOOPS IN THE OVERLAY NEVER RETURNING TO THE MONITOR* 
SW03=1 INTERNAL LOOPBACK MODE 
SW02=1 EXTERNAL LOOPBACK MODE 
SW01=1 ONE-WAY-IN MODE 
SW00«1 ONE-WAY-OUT MODE 
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SEQ 0006 

SEO 0006 



THIS PROGRAWl HAS BEEN MODIFIED TO RUN ON A PROCESSOR WITH OR WITHOUT 
A HARDWARE SWITCH REGISTER. WHEN FIRST EXECUTED THE PROGRAM TESTS 
THE EXISTENCE OF A HARDWARE SWITCH REGISTER. IF NOT FOUND A 
SOFTWARE SWITCH REGISTER LOCATION (SWRE3=L0C. 176 ) IS DEFAULTED TO. 
IF THIS IS THE CASE. UPON EXECUTION THE CONTENTS OF THE SWREG ARE 
DUMPED IN OCTAL ON THE CONSOLE TTY AND ANY CHANGES ARE REQUESTED 

(IE) SWR=XXXXXX NEW= 

POSSIBLE RESPONSES ARE: 

1. <CR> IF NO CHANGES ARE TO BE MADE 

2. 6 DIGITS 0-7 TO REPRESENT IN OCTAL THE NEW SWITCH REGISTER 

VALUE ;LAST DIGIT FOLLOWED BY <CR>. 

3. ^U TO ALLOW REENTERING VALUE IF ERROR IS COMMITTED 

KEYING IN SWREG VALUE. 

BUILT INTO THE PROGRAM IS THE ABILITY TO DYNAMICALLY CHANGE THE 
CONTENTS OF SWREG DURING PROGRAM EXECUTION. BY STRIKING '^G 
(CNTL G) ON CONSOLE TTY THE OPERATOR SETS A REQUEST FLAG TO CHANGE 
THE CONTENTS OF SWREG. WHICH IS PROCESSED IN KEY AREAS OF THE PROGRAM 
CODE (IE) ERROR ROUTINES, AFTER HALTS END OF PASS. AND OTHER 
APPLICABLE AREAS. 



IF OPERATOR SPECIFIED DATA WAS INDICATED, THE PROGRAM WILL TYPE A 
REQUEST FOR THE DATA. DATA MAY BE ENTERED AS ASCII CHARACTERS OR OCTAL CODE. 
TYPE IN THE DATA TERMINATED WITH A CR. OCTAL CODE MAY BE ENTERED BY TYPING AN 
'^(UP ARROW) FOLLOWED BY THE OCTAL CODE (IN THE RANGE 000 TO 377) 
SEPERATED BY SPACES AND TERMINATED BY '^(UP ARROW). 
I.E. ABCD*^ 000 123 377" EFG (CAR. RETURN) 

A TYPICAL SWITCH SETTING FOR HALF-DUPLEX=0031 50 THIS SETTING USES 

INTERNAL LOOPBACK MODE, LOOPS IN OVERLAY, MONITORS TRANSMITTED AND RECEIVED 

DATA ON THE CONSOLE TTY, AND TESTS RECEIVED DATA USING TEST MESSAGE #3. 

A TYPICAL SWITCH S£TTIi>iG FOR FULL-Du?LEX = 0031 44 THIS SETTIi^G 
IS THE SAME AS ABOVE EXCEPT IT USES THE EXTERNAL LOOPBACK MODE. 

ALL STANDARD MESSAGES ( TEST MESSAGES 1-3) ARE PRECEDED BY 2 FILL CHARACTERS( 1 77) , 
AND ARE FOLLOWED BY A CR(015), LF ( 1 2 ), RECEIVE TERMINATING CHARACTER ( 00.1 ) , 
4 FILLS(177), AND A TRANSMIT TERMINATING CHARACTER ( 000 ) . DURING TRANSMISSION, 
WHEN A 000 CHARACTER IS SEEN THE TRANSMISSION IS STOPPED. DURING RECEPTION, 
WHEN A 001 CHARACTER IS RECEIVED, THE RECEIVER IS SHUT OFF* 

IF THE MESSAGE WAS INPUTED BY THE OPERATER, THE TERMINATING CHARACTERS ARE ADDED. 
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SEQ 0007 

SEQ 0007 



TEST MODES 

INTERNAL LOOPBACK MODE 



1. THE OVERLAY WAITS TO RECEIVE A MESSAGE (TERMINATED BY <001>) 

2. VERFIES THE DATA AGAINST THE DATA SELECTED BY SW09 AND SW10(SW7=0) 

3. TRANSMIT THE DATA SELECTED BY SW09 AND SW10 (SW8=0) OR 
TRANSMIT THE RECEIVED DA-^A (SW8=1) 

4. RETURNS TO MONITOR FOR "END PASS" (SW4=:1) OR 
GO TO STEP 1 . (SW4=0) 



EXTERNAL LOOPBACK MODE 



1. THE OVERLAY SETS REQUEST TO SEND 

2. WAIT FOR CLEAR TO SEND 

3. TRANSMITS THE SELECTED DATA 

4. RESETS REQUEST TO SEND 

5. WAIT FOR MESSAGE TO BE RECEIVED 

6. VERIFIES THE DATA (SW07=:0) 

7. RETURNS TO MONITOR FOR "END PASS". (SW04=1) OR 
GO TO STEP 1 (SW04=0) 



ONE-WAY-IN MODE 



1. THE OVERLAY WAITS FOR MESSAGE TO BE RECEIVED. 

2. VERIFIES THE DATACSW07=0) 

3. RETURNS TO MONITOR FOR "END PASS" ( SW04= 1 ) OR 
GO TO STEP 1 (SW04=0) 



ONE-WAY-OUT MODE 



1. THE OVERLAY SETS REQUEST TO SEND 

2. WAITS FOR CLEAR TO SEND 

3. TRANSMITS SELECTED DATA 

4. RETURNS TO MONITOR FOR "END PASS". (SW04=1) OR 
GO TO STEP 1 (SW04=0) 

THE OVERLAY IS THEN ENTERED AND A CONNECTION ESTABLISHED EITHER 
MANUALLY OR AUTOMATICALLY. 



• IF ONE-WAY-IN OR INTERNAL LOOPBACK MODES ARE SELECTED. 
THE OVERLAY WILL SET DATA TERMINAL READY AND WAIT FOR DATA. 



IF ONE-WAY-OUT OR EXTERNAL LOOPBACK MODES WERE SELECTED. 
THE OVERLAY WILL SET DATA TERMINAL READY AND REQUEST TO SEND. 
THE OVERLAY WILL THEN WAIT FOR CLEAR TO SEND BEFORE ATTEMPTING TO 
TRANSfVUT DATA. 



THE PROGRAM WILL PRINTOUT A "WAITING FOR CLEAR TO SEND" 
MESSAGE AND THE CONTENTS OF THE XMIT CSR EVERY 60 SECS. 
UNTIL CLEAR TO SEND IS ASSERTED. 
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SEQ 0008 
SEQ 0008 



IF SW04=0 THE OVERLAY WILL CONTINUE TO 
TRANSMIT/RECEIVE DATA. 

IF SW04=1 THE OVERLAY WILL RETURN 
TO THE MONITOR AND TYPE "END PASS". 

IF BOTH SW04=1 AND SW14=1, ^hE PROGRAM WILL REQUEST 
NEW INTERFACE PARAMS AFTER ONE PASS OF THE SELECTED 
TEST MODE. 

TEST EXECUTION MAY BE INTERRUPTED BY TYPING THE FOLLOWING 

CHARACTERS ON THE CONSOLE TTY. 

LINE FEED = RESTART PR0GRA1V1 AT LOCATION 200. 

QUESTION MARK = PRINTOUT FIRST 8 WORDS OF INPUT BUFFER . (ASCI I ) 

THEN TYPE EITHER: 

*WXXXXXX TO PRINTOUT THE 8 WORDS 

AT LOG XXXXXX. 



♦BXXXXXX 



TO PRINTOUT THE 
AFTER LOC XXXXXX. 



16 BYTES 



*C 



TO CONTINUE 



PROGRAM MUST BE RESTARTED AT 200 AFTER PRINTING. 
CARRIAGE RETURN = RESTART AT REQUEST FOR NEW OPERATIONAL SWITCHES. 

5.0 PROGRAM AND/OR OPERATOR ACTION 

IF THE OPERATOR WISHES TO MANUALY EXAMINE THE TRANSMIT OR RECEIVE 
BUFFERS, DO THE FOLLOWING; TO FIND THE STARTING ADDRESS OF THE RECEIVE 
BUFFER, LOAD ADDRESS 1 1020 AND EXAMINE. TO FIND THE STARTING ADDRESS 
OF THE TRANSMIT BUFFER, LOAD ADDRESS 11022 AND EXAMINE. 



5.1 



NORMAL HALTS 
SEE SECTION 4. 



6.0 ERRORS 

6.1 ERROR REPORTING 

THE ONLY ERROR REPORT FROM THE CONTROL PROGRAM OCCURS IF THE 
INTERFACE SPECIFIED IS NOT LOADED. 

IF DATA IS RECEIVED AND SWITCH 7 (NO DATA COMPARE) 
IS RESET, THE DATA WILL BE COMPARED AGAINST THE PRESELECTED 
DATA AFTER A LINE FEED CHARACTER IS RECEIVED. IF THERE IS A 
MISMATCH, THE FOLLOWING ERROR REPORT IS PRINTED: 



RECEIVED DATA=RRRRRR 
DATA SHOULD BE TTTTTT 

DATA COMPARE ERROR; BAD DATA=BBB GOOD DATA=GGG 
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SEQ 0009 

SEQ 0009 



WHERE RRRRRR IS THE RECEIVE BUFFER (UP TO 512 CHARACTERS) 
TTTTTT IS THE TRANSMIT BUFFER (UP TO 512 CHARACTERS) 
BBS IS THE BAD DATA CHARACTER 
GGG IS THE GOOD DATA CHARACTER 

IF THE INTERFACE DETECTS A DATA ERROR. THE FOLLOWING 
WILL BE PRINTED BEFORE THE DATA IS COMPARED: 

THERE WAS A RECEIVER ERROR. RECEIVER DATA REGISTER =XXXXXX 

WHERE XXXXXX IS ''HE CONTENTS OF THE RECEIVER DATA REGISTER 
THE LOW BYTE IS THE DATA. AND THE HIGH BYTE IS THE ERROR BITS. 

IF A RECEIVE TERMINATING CHARACTER<001 > IS NOT DETECTED 
WITHIN 512 CHARACTERS A "BUFFER FULL" PRINTOUT WILL OCCUR, 



THE OPERATION OF THIS PROGRAM REQUIRES COORDINATION BETWEEN 
THE OPERATOR AND THE OPERATOR OF ANOTHER PDP-11 SYSTEM 
UNLESS ONE OF THE SYSTEMS IS ALWAYS OPERATING IN A FIXED 
MODE. THE FOLLOWING TABLE LISTS THE VALID COMBINATIONS: 



WHEN THE COMMUNICATION LINK INVOLVES MODEMS THE FOLLOWING 
RESTRICTION APPLY: 

IF RUNNING IN FULL DUPLEX MODE BOTH SYSTEMS 
MUST BE IN EXTERNAL LOOP BACK MODE. 

BOTH SYSTEMS SHOULD BE RUNNING IDENTICAL ROUTINES. 
EXAMPLE: 

SWITCHES 14,13,7,4 SHOULD BE THE SAiME 
ON BOTH CPU S 

IF PROGRAM IS WAITING IN A SCAN ROUTINE AND TYPES OUT 
A "WAITING MESSAGE'MF AN INCOMING MESSAGE STARTS DURING 
THE TYPE OUT, IT WILL BE LOST BECAUSE THE TYPEOUT PRIORITY 
IS AT LEVEL 7. THIS WILL RESULT IN OVERRUN OR SILO OVER- 
RUN ERRORS, DEPENDING ON THE DEVICE. TO AVOID THIS SITUATION 
RUN WITH SWITCH 13 UP. IF OVERRUN DOES OCCURE DURING A 
TYPEOUT THE PROGRAM SHOULD BE RESTARTED. 



IF USING AN ASYNCRONOUS DEVICE, MODEMS AND THE 
MAYNARD TEST STATION AND INITALIZE DOES NOT CLEAR THE 
CONNECTION (EXAMPLE THE DJ11) IF THE PROGRAM IS RESTARTED 
IN THE MIDDLE OF A MESSAGF AT LOC 204 OR BY HIITING CR 
AN IMMEDEATE ERROR MESSA ROM MAYNARD WILL RE" 



7.0 



RESTRICTIONS 



CPU #1 

ONE-WAY-OUT 

ONE-WAY-IN 



EXTERNAL-LOOPBACK 
INTERNAL-LOOPBACK 
EXTERNAL-LOOPBACK 



CPU #2 

ONE-WAY-IN 

ONE-WAY-OUT 

INTERNAL-LOOPBACK 

EXTERNAL-LOOPBACK 

EXTERNAL-LOOPBACK (FULL DUPLEX) 



\ 
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CEIVED. THIS IS BECAUSE THE TEST STATION IS STILL LOOKING 

FOR THE REST OF THE INTERUPTED MESSAGE. TO AVOID THIS 
ERROR , RESTART PROGRAM ONLY AT THE END OF THE MESSAGE 
CURRENTLY BEING TRANSMITTED. 



8.0 MISCELLANEOUS 

ITEP WAS CHECKED OUT USING THE FOLLOWING BELL TELEPHONE MODEMS. 
201 A (HALF-DUPLEX SYNCHRONOUS 2000 BAUD) 
202C (HALF-DUPLEX ASYNCHRONOUS 1200 BAUD) 
103A ( FULL-DUPLEX ASYNCHRONOUS 110 BAUD) 



9.0 PROGRAM DESCRIPTION 

9.1 THE C2DL0D0 DL11 INTERFACE SERVICE PARAMS ARE SETUP, AS SPECIFIED BY THE OPERATOR, 
BY THE ITEP CONTROL PROGRAM. 

TIME: PROVIDES A MEANS OF MEASURING ELASPED TIME. IT IS INCREMENTED 
EVERY SECOND BY A CLOCK INTERRUPT ROUTINE IN ITEP. 

9.2 WHEN THE OVERLAY IS FIRST ENTERED BY ITEP AT LOCATION START: , 
THE CONTENTS OF THE SWITCH REGISTER ARE STORED IN REGISTER 0. 
THE MODE AND DATA SELECTIONS ARE FIXED AT THIS TIME AND CANNOT 
BE ALTERED WITHOUT RETURNING TO THE CONTROL PROGRAM. 

THE INTERRUPT VECTORS AND VARIABLES ARE THEN SETUP. 

THE SELECTED ROUTINE DETERMINED BY THE MODE IS THEN ENTERED 

9.3 THE OVERLAY THEN LOOPS IN ROUTINES: $OWI , IF ONE WAY IN" MODE 
WAS SELECTED. $0W0 , I F "ONE WAY OUT" MODE WAS SELECTED. 

$1 LB, IF " INTERNAL LOOP BACK" MODE WAS SELECTED. 
$XLB, IF "EXTERNAL LOOP BACK" WAS SELECTED. 

9.31 $OWI : IN THIS ROUTINE THE RECEIVER IS INITIALIZED AND PROGRAM 
LOOPS WAITING FOR THE RECEIVER TO FINISH. IF NOTHING IS RECEIVED 
FOR 60 SECS A "WAITING" MESSAGE IS TYPED. WHEN THE RECEIVER IS 
DONE, THE PROGRAM CHECKS DATA IF SWITCHES PERMIT, AND TYPES END 
PASS DEPENDING ON SWITCH SETTINGS. 

9.32 $0W0: THE TRANSMITTER IS INITIALIZED AND PROGRAM LOOPS 
WAITING FOR TRANSMITTER TO .NISH.A "WAITING" MESSAGE IS TYPED 
EVERY 60 SECS IF THERE IS NO ACTION. WHEN THE TRANSMITTER IS 
DONE, THE PROGRAM EITHER LOOPS BACK TO $0W0 OR TYPES END PASS 
DEPENDING ON SWITCH SETTINGS. 

9.33 SI lb: THE RECEIVER IS INITIALIZED AND PROGRAM LOOPS WAITING FOR 
RECEIVER TO FINISH, A "WAITING" MESSAGE IS TYPED EVERY 60 SEC 

IF NO ACTION. WHEN RECEIVER IS DONE PROGRAM CHECKS DATA IF SWITCH 
SETTINGS PERMIT, AND END PASS IS TYPED IF SWITCH SETTINGS PERMIT. 
THEN THE TRANSMITTER IS INITIALIZED, A "WAITING" MESSAGE IS TYPED 
EVERY 60 SEC IF NO ACTION. WHEN TRANSMITTER IS DONE PROGRAM RETURNS 
TO START OF ROUTINE. ($ILB) 

9.34 SXLB: IF IN HALF DUPLEX THE TRANSMITTER IS INITIALIZED, 

A •'WAITING MESSAGE IS TYPED EVERY 60 SEC IF THERE IS NO ACTION 
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WHEN THE TRANSMITTER IS DONE THE RECEIVER IS INITIALIZED 
, A "WAITING" MESSAGE IS TYPED EVERY 60 SEC IF THERE IS NO ACTION, 
WHEN THE RECEIVER IS DONE, DATA IS CHECKED IF SWITCH SETTINGS 
PERMIT AND END PASS IS TYPED IF SWITCHES ALLOW. THE PROGRAM NOW 
REPEATS CYCLE STARTING AT $XLB. 

IF IN FULL DUPLEX THE RECEIVER AND TRANSMITTER ARE INITIALIZED 
, A "WAITING" MESSAGE IS TYPED EVERY 60 SEC IF THERE IS NO 
ACTION. WHEN BOTH THE RECEIVER AND TRANSMITTER ARE DONE, DATA IS 
CHECKED, END PASS IS TYPED AND PROGRAM LOOPS TO $XLB DEPENDING 
ON THE SWITCH SETTINGS. 

9.4 THE RETURN TO MONITOR ROUTINE FOR END PASS AT EOP: 

LOCKS OUT INTERUPTS AND SAVES THE TRANSMITTER INTERUPT ENABLE 
BIT AND ALL GENERAL REGISTERS. IT THEN RETURNS TO THE MONITOR 
TO TYPE "END PASS" . THE MONITOR CHECKS SW14 I f^^ UP IT RETURNS 
TO ENTER:. OTHERWISE IT RESTARTS THE PROGRAM. 

9.5 enter: IS ENTERED FROM THE MONITOR AFTER TYPEING "END PASS" . 
IT RESTORES THE GENERAL REGISTERS AND THE TRANSMITTER CSR 

AS SAVED IN EOP. THE DELAY FLAG IS SET AND PROGRAM RETURNS TO 
THE SCAN ROUTINE(OWO,OWI , ILB.XLB) WHERE IT CAME FROM. 

9.6 THE INITIALIZE TRANSMIT SUBROUTINE AT STARTX: 
SETS UP THE INTERFACE AND POINTERS NECESSARY TO 
INITIATE A TRANSMIT OPERATION. 

AFTER SETTING "DATA TERMINAL READY" AND "REQUEST TO SEND" A CHECK 

IS MADE ON PARAM2 TO DETERMINE IF HALF DUPLEX OPERATION 

WAS SELECTED BY THE OPERATOR. IF IT WAS, THE 

SUBROUTINE WAITS FOR CLEAR TO SEND. 

A 'WAITING FOR CLEAR TO SEND' PRINTOUT OCCURS 

EVERY 30 SECONDS UNTIL CLEAR TO SEND IS ASSERTED. 

9.7 THE INITIALIZE RECEIVED SUBROUTINE AT STARTR: 
SETS UP THE INTERFACE AND POINTERS NECESSARY TO 
RECEIVE A MESSAGE. 

9.8 THE TRANSMIT INTERRUPT SERVICE ROUTINE, 

AT XISR: , IS ENTERED VIA TRANSMIT INTERRUPTS 
FROM THE INTERFACE. 

A TEST IS MADE TO SEE IF THE LAST CHARACTER 
TRANSMITTED WAS A NULL (ALL ZEROS) CHARACTER. 
IF IT WAS; THE TRANSMIT LOGIC IN THE INTERFACE 
IS RESET AND THE TRANSMIT COMPLETE FLAG IS SET. 
AT XISR1 : THE NEXT CHARACTER IS TRANSMITTED 
AND PRINTED ON THE TTY IF THE MONITOR TRANSMIT 
SWITCH IS SET. 

9.9 THE RECEIVE INTERRUPT SERVICE ROUTINE 

.AT RISR:. is ENTERED VIA RECEIVER INTERRUPTS 
FROM THE INTERFACE. 

THE RECEIVED CHARACTER IS STORED IN 

THE INPUT BUFFER AND PRINTED ON THE TTY IF 

THE MONITOR RECEIVER SWITCH IS SET. 

IF THE INPUT BUFFER IS FULL. A 'BUFFER FULL' 

PRINTOUT WILL OCCUR. THIS INDICATES THAT A 

LINE FEED CHARACTER WAS W RECOGNIZED 
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IN THE RECEIVED DATA (WITHIN 1000 CHARACTERS) . 

IF THE RECEIVED CHARACTER IS A LINE FEED, 
THE RECEIVED LOGIC IS RESET AND THE 
RECEIVE COMPLETE FLAG IS SET. 

IF A 'RECEIVE ERROR' IS DETECTED AT RISR:. THE 
GSR AND DBR WILL BE SAVED AND PRINTED OUT 
AFTER THE COMPLETE MESSAGE HAS BEEN RECEIVED. 

9.10 THE DATA TEST SUBROUTINE AT TESTD: IS 

ENTERED AFTER A COMPLETE MESSAGE HAS BEEN 
RECEIVED. 

IF A 'RECEIVE ERROR' HAD BEEN DETECTED, 
THE CONTENTS OF THE 'RECEIVE BUFFER' AT THE 
TIME THE ERROR OCCURRED WILL BE PRINTED. 
THE DATA IS COMPARED UNTIL A 'ALL ZEROS' 
CHARACTER IS RECOGNIZED. 'FILL' (ALL ONES) 
CHARACTERS ARE IGNORED. IF A MISMATCH 
IS DETECTED, THE COMPLETE CONTENTS OF THE 
INPUT BUFFER AND GOOD DATA IS PRINTED. 



10.0 PARAMETERS FOR THE DL1 1 

PARAM#1 MUST BE ALL ZEROS. 

PARAM#2 BIT OF THIS PARAMETER IS CHECKED BY THE SOFTWARE TO RUN 

EITHER FULL-DUPLEX OR HALF-DUPLEX. BIT0=1 SELECTS FULL-DUPLEX, 

BITO=0 SELECTS HALF-DUPLEX. DEFAULT IS HALF-DUPLEX, ALL OTHER BITS MUST BE ZEROS. 

PARAM#3 IS USED BY SOFTWARE TO DETERMINE IF TEST IS TO BE RUN A MODEM ; ;-M-D 

OTHER THAN A STANDARD AMERICAN MODEM. FOR EXAMPLE , EUORPEAN MODEMS 
EMPLOY A CLAMP TO INHIBIT CARRIER DETECT ( BI T 1 2 ) WHEN REQUEST TO 
SEND IS ASSERTED. IF THIS DIAGNOSTIC WILL BE RUN ON A EUROPEAN 
MODEM , MANUALLY SET PARAM3 TO ZERO(O) . OTHERWISE LEAVE VALUE AT 
MINUS 0NE(177777). 
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SSQ 0013 
SEO 001 i 



581 
582 
583 
584 
585 
586 
587 
588 
589 
590 
59' 
592 
593 
594 
595 
596 
597 
598 
599 
600 
601 
602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
522 
623 
624 
625 
B26 
S27 
b2& 
629 
530 
531 
632 
633 
634 



01 lOOO 
01 1004 
01 1 006 
011010 
01 1012 
011014 
011016 
01 1020 
01 1022 
01 1024 
01 1026 
01 1030 
01 1032 
01 10?4 
01 1036 
01 1040 
01 1040 
011041 
011041 
01 1042 
01 1044 
011046 



01 1050 
01 1052 
01 lOe. 
01 1056 
0' 106C 

01 '062 
0' "064 
01 1066 
01 1070 

011072 
01 1074 

01 1076 
01 1 100 



01 1000 
046104 
175610 
000300 
000200 
000000 
000000 
177777 
000000 
000000 
000000 
000000 
000000 
000000 
onoooo 

0' 1 1C2 

000 

001 
000000 
177570 
177570 



000000 
100000 
040000 
020000 
020000 

JOOOOO 
-wOCOO 
.iOOOOO 
JOOOOO 
000000 

000000 
000000 
000000 
000000 

'77560 
177562 
177564 
177566 

000001 



000040 



********** ********************************************** ******* 
0L11 INTERFACE SERVICE PARAMS 

.sllOCU 

;ISR NAME 
;BUS ADDRESS 
{VECTOR ADDRESS 
{PRIORITY 
IPARAM #1 
IPARAM #2 
;PARAM M3 

{INITIAL READ DATA ADDRESS 
{INITIAL XMIT DATA ADDRESS 
{LINE SETTLE DELAY FLAG 



DL115 .ASCI2 

BA5 175610 

RIV: 300 

prior: 200 

PARAM1 : 000000 

PARAM2: 000000 

PARAM35 177777 

IROA: .word 

IXDA: .word 

settle: .word 

.WORD 

B2016: .WORD 

time: .word 

.WORD 

.WORD START 

TX.TERM: 

.BYTE 000 

RX.TERMJ 

.BYTE 001 

FLAG: .WORD 
SWR: 177570 
DISPLAY! 177570 

|«It,«««««««4i««#«««»««««««««««««i»««»««»««*$«*«««!»**««««««*******<«>* 

; CONSTANTS 4- WORKING STORAGE 

; «***»******«***«*#«******«***#««****«*«**»********************* 

STAT«RO 



JADDR OF BIN TO OCT TYPE ROUTINE 
I TIMER 

{ADDR OF START OF PROGRAM 
{TRANSMITTER' TERMINATING CHAR. 
{RECEIVER TERMINATING CHAR. 



SXCSR: 
SRCSR: 
ERCSR: 
ERDBR: 



XCC: 
RCC: 
RDA: 
XDA: 

TKS: 
TKB: 
TPS: 
TPB: 



XFLGbIOOOOO 
RFLGb40000 
DSFLGa20000 
BITISaSOOOO 








{XMIT COMPLETE FLAG 
{RCV COMPLETE FLAG 
{DATA SET STATUS CHANGE FUG 
{INHIBIT PRINTOUTS 

{SAVED XMIT CSR 

{SAVED RCV CSR 

{RCV CSR SAVED ON ERROR 

{RCV DATA REG SAVED ON ERROR 

{RCV CSR SAVEP ON DS CHANGE 

{XMIT CHAR COUNT 
{RCV CHAR COUNT 
{RCV DATA ADDR. 
{XMIT DATA ADDR. 



177560 
177562 
177564 
177566 



FULL.DUPLEX"000001 
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SEQ 0014 
SEO 0014 



636 










; DL11-X 


INTERFACE SERVICE 


ROUTINE 


537 












638 


01 


^ 1 02 


D00240 




START : NOP 








639 


0' 


< 1 04 


0' 7700 


177734 


MOV 


@SWR, 


RO 


{SETUP MODE IN RO 


640 


011 ■'C 


04 2700 


177400 


BIC 


#177400 




RO {STRIP UUNK 


641 


01 


1 ' 1 


013702 


01 1006 


MOV 


RIV, 


*R2 


{SETUP 


642 


01 


' i2C 


01 2722 


013662 


MOV 


jS^RISR, 


(R2)+ 


{ INTERRUPT 


643 




■ 1 24 


: 3722 


01 1010 


MOV 


PRIOR. 


(R2) + 


{VECTORS 


64^» 


0' 


1 ic 


J 12722 


013544 


MOV 




(R2)-i- 




645 


• 


"34 


013722 


011010 


MOV 


PRIOR, 


(R2)-»- 




646 


D- 


■ 140 


013704 


01 1004 


MOV 


BA, 


R4 


{SETUP BUS ADDR XNOE% 


64'' 


0- 


1 144 


013714 


011012 


MOV 


PAR AMI , 


l»RCSR 


•SETUP VARIABLES 


648 


01 


1 150 


Ot 3702 


011014 


MOV 


PARAM2 , 


R2 




649 


01 


11 54 


042702 


000001 


BIC 


#0001 ,R2 




650 


01 


1 160 


010264 


000004 


MOV 


R2, 


XCSR(R4){IN CSR'S 



651 
652 
653 
65^ 
655 
656 
357 



675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 



011254 
011236 



104416 

004737 013402 



« « 4 « $ « !$> « « « « ui « « $ 4. « « « $ « Hi i» « 4, « 1$ $ « i» lit « ^ « ill 

ROUTINE USED TO GOTO 
SUBROUTINE DEPENDENT 
ON MODE SELECTED. 



658 


01 M64 


005037 


01 1032 


go: 


CLR 


TIME 


659 


01 1 1 70 


005037 


013054 




CLR 


DELAY 


660 


011 174 


005037 


013060 




CLR 


STOP 


661 


01 1200 


032700 


000001 




BIT 


#OWO,MOOE 


662 


0" 1204 


001402 






BEQ 


1$ 


663 


01 1206 


000137 


01 1362 




UMP 


SOWO 


664 


011212 


032700 


000002 


is: 


BIT 


#OWI,M0DE 


665 


011216 


001402 






BEQ 


2$ 


666 


01 1220 


000137 


011254 




UMP 


SOW I 


667 


01 1224 


032700 


000010 


2S: 


BIT 


#ILB,MODE 


668 


01 1230 


001402 






BEQ 


3$ 


669 


01 1232 


000137 


011460 




UMP 


$ILB 


670 


01 1236 


032700 


000004 


3$: 


BIT 


#XLB,MODE 


671 


01 1242 


001402 






BEQ 


4$ 


672 


01 1244 


000137 


011710 




JMP 


SXL3 


673 


011250 


000000 




4$: 


HALT 




674 


011252 


000776 






BR 


.-a 



ROUTINE USED IF "ONE WAY IN" MODE WAS SELECTED. 
NOTE THAT WHEN IN THIS MODE HALF DUPUX IS THE 
ONLY MODE AVAILABLE. 

■ONE WAY IN" MEANS THAT ONLY THE RECEIVER IS 
ENABLED. THE TRANSMITTER IS NEVER ■ TURNED ON". 



KBDIN 
JSR 



PC.STARTR 
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SEQ 001 S 
SEQ 0015 



691 


01 1262 


032700 


040000 


692 


01 1266 


001013 




693 


01 1270 


023727 


011032 


694 


01 1276 


103771 




695 


01 1300 


01 1402 




696 


01 1302 


016403 


000004 


697 


01 1306 


104001 




698 


011310 


005037 


011032 


699 


011314 


000762 




700 








701 


011316 


032777 


000200 


702 


011324 


001002 




703 


01 1326 


004737 


012300 


704 


01 1332 


042700 


040000 


705 


01 1336 


032777 


000020 


706 


01 1344 


001405 




707 


01 1346 


012737 


011360 


708 


01 1354 


000137 


012140 


709 


011360 


000735 




710 








71 1 








712 








713 








714 








715 








716 








717 








718 








719 








720 


01 1362 


104416 




721 


01 1364 


004737 


013062 


722 


01 1370 


005037 


011032 


723 


01 1374 


032700 


100000 


724 


01 1400 


001013 




725 


01 1402 


023727 


01 1032 


726 


011410 


103771 




727 


011412 


01 1402 




728 


011414 


016403 


000004 


729 


01 1420 


104001 




730 


01 1422 


005037 


01 1032 


731 


01 1426 


000762 




732 


01 1430 


042700 


100000 


733 


011434 


032777 


000020 


734 


01 1442 


001405 




735 


01 1444 


012737 


011456 


736 


01 1452 


000137 


012140 


737 


01 1456 


000741 




738 








739 








740 









177520 2$: 



4$: 



BIT 


#RFLG,STAT 


BNE 


2$ 


CMP 


TIME, *1 00 


BLO 


1$ 


MOV 


@RCSR,R2 


MOV 


XCSR(R4) ,R3 


HLT 


1 


CLR 


TIME 


BR 


1$ 


BIT 


#NODAT,«»SWR 


BNE 


3$ 


USR 


PC.TESTD 


BIC 


#RFLG,STAT 


BIT 


(^LOOP,@SWR 


BEQ 


4$ 


MOV 


#4$, BACK 


JMP 


EOP 


BR 


SOW I 



4>4><t>*'«i*4<«4:4i*4t****4r*4<«*««*4i**4>*«i#4i*i|i«t«4i****4i 

ROUTINE USED IF "ONE WAY OUT" WAS SELECTED. 

NOTE THAT WHEN IN THIS MODE HALF DUPLEX IS THE ONLY 

MODE AVAILABLE. 

"ONE WAY OUT" MEANS THAT ONLY THE TRANSMITTER ZS 

ENABLED. THE RECEIVER IS NEVER "TURNED ON. 



2S: 



3S: 



KBDIN 




USR 


PCSTARTX 


CLR 


TIME 


BIT 


#XFLQ,STAT 


BNE 


2$ 


CMP 


TIME, #100- 


BLO 


1$ 


MOV 


#RCSR , R2 


MOV 


XCSR(R4},R3 


HLT 


1 


CLR 


TIME 


BR 


IS 


BIC 


#XFLG,STAT 


BIT 


#LOOP,@SWR 


BEQ 


3$ 


MOV 


#3$, BACK 


JMP 


EOP 


BR 


SOWO 
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ROUTINE USED IF INTERNAL LOOP BACK" WAS SELECTED. 
NOTE THAT WHEN IN THIS MODE; HALF DUPLEX IS THE 

ONLY MODE AVAILABLE. 

"INTEFx'.JAL LOOP BACK" MEANS THAT THE RECEIVER IS "TURNED ON" 
AND A COMLPETE MESSAGE IS RECEIVED. IF DATA IS TO BE CHECKED 
IT IS; IF "END PASS" IS DESIRED: IT IS GIVEN. 
THEN THE TRANSMITTER IS ENABLED. AFTER THE WHOLE MESSAGE 
IS TRANSMITTED; THE CYCLE IS REPETED AS ABOVE. 



SEO 0016 

SEQ 001S 



"52 


01 1460 


104416 






SILB: 


KBDIN 






'53 


01 1462 


004737 


013402 






USR 


PC.STARTR 




'54 


01 1466 


005037 


01 1032 






CLR 


TIME 




755 


:i 1472 


032700 


040000 




1$: 


BIT 


#RFLG,STAT 




'56 


01 1476 


001013 








BNE 


2$ 




757 


01 1500 


023727 


011032 


000100 




CMP 


TIME, #100 




758 


01 1506 


103771 








BLO 


1$ 




759 


011510 


01 1402 








MOV 


@RCSR.R2 




760 


011512 


01 6403 


000004 






MOV 


XCSR(R4) ,R3 
1 




761 


011516 


104001 








HLT 




762 


01 1520 


005037 


011032 






CLR 






763 


01 1524 


000762 








BR 


1$ 




764 


01 1526 


032777 


000200 


177310 


2$: 


BIT 


#NODAT,@SWR 




765 


01 1534 


001002 








BNE 


3$ 




766 


01 1536 


004737 


012300 






USR 


PCTESTD 




767 


01 1542 


042700 


040000 




3$: 


BIC 


#RFLG,STAT 




768 


01 1546 


032777 


000020 


177270 




BIT 


#LOOP,@SWR 




769 


01 1554 


001405 








BEQ 


4$ 




770 


01 1556 


01 2737 


01 1570 


013056 




MOV 


#4$ , BACK 




771 


01 1564 


000137 


012140 






UMP 


EOP 




772 


01 1570 


032777 


000400 


177246 


4$: 


BIT 


#400, 9SWR 


;USE EXTERNAL DATA? 


77- 


01 1576 


001416 








BEQ 


7$ 


;BR IF NO 


^4 


01 1600 


01 3702 


01 1020 






MOV 


IRDA, R2 


ISET POINTER 


7 '5 


01 1604 


013703 


01 1022 






MOV 


IXDA, R3 


;SET POINTER 


-"6 


01 1610 


010337 


01 1070 






MOV 


R3, XDA 


; SETUP XMIT DATA ADDR 




011614 


1 1 2223 








MOVB 


(R2) + , (R3)-f 


;MOVE INPUT TO OUTPUT 


7 Ci 


011616 


001376 








BNE 


.-2 


;LOOP IF NOT ZERO CHAR 


7 ' 


01 1620 


1 1 2743 


000177 






MOVB 


#177, -(R3) 


;IN«>ERT A FILL CHAR 


780 


01 1624 


005203 








INC 


R3 


;BUMP ADDRESS 


781 


01 1626 


1 1 2723 


000177 






MOVB 


#177, (R3)+ 
{R3) + 


; INSERT ANOTHER FILL 


782 


01 1632 


105023 








CLRB 


; INSERT ZERO CHAR 


783 


01 1634 


005037 


01 1032 




7$: 


CLR 


TIME 




784 


01 1640 


004737 


013062 






USR 


PCSTARTX 




^85 


01 1 644 


032700 


100000 




5S: 


BIT 


#XFLG,STAT 




786 


01 1650 


001013 








BNE 


6$ 




787 


01 1652 


023727 


011032 


000100 




CMP 


TIME, #100 




788 


01 1650 


103771 








BLO 


5$ 




789 


01 1662 


01 1402 








MOV 


@RCSR,R2 




790 


01 1664 


016403 


000004 






MOV 


XCSR(R4),R3 




791 


01 1670 


104001 








HLT 


1 




792 


01 1672 


005037 


01 1032 






CLR 


TIME 




793 


01 1676 


000762 








BR 


5$ 




794 


01 1700 


042700 


100000 




6S: 


BIC 


#XFLG,STAT 




795 


01 1704 


000137 


011460 






UMP 


SILB 
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796 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 



ROUTINE USED IF "EXTERNAL LOOP BACK" WAS SELECTED. 
EITHER HALF OR FULL DUPLEX MAY BE SELECTED IN THIS MODE. 
"EXTERNAL LOOP BACK" MEANS THAT THE TRANSMITTER IS FIRST 
TURNED ON (IF HALF DUPLEX) AND THE WHOLE MESSAGE IS TRANSMITTED? 
THEN THE RECEIVER IS ENABLED. AFTER THE WHOLE MESSAGE IS RECEIVED 
DATA WILL THEN BE CHECKED IF DESIRED AND END PASS WILL 
BE GIVEN IF DESIRED. THEN THE CYCLE IS REPEATED 
AS ABOVE. IF RUNNING IN FULL DUPLEX THE PROGRAM 
WAITS FOR BOTH THE RECEIVER AND TRANSMITTER TO 
FINISH THEN RESTARTS THE RECEIVER AND TRANSMITTER. 



809 


011710 


1 0441 6 






$XLB: 


KBDIN 




810 


011712 


032737 


000001 


01 1014 




BIT 


#FULL . DUPLEX , PARAM2 


81 1 


01 1720 


00 1 402 








BEQ 


1$ 


812 


01 1 722 


004737 


013402 






JSR 


PCSTARTR 


813 


01 1 726 


' 004737 


013062 




1$: 


JSR 


PC.STARTX 


814 


01 1732 


005037 


01 1 032 






CLR 


TIME 


815 


01 1 736 


032700 


100000 




2$: 


BIT 


#XFLG,STAT 


816 


01 1 742 


001 01 6 








BNE 


3$ 


817 


01 1 744 


032700 


040000 




7S: 


BIT 


#RFLG,STAT 


818 


01 1 750 


001024 








BNE 


4$ 


81 9 


01 1 752 


023727 


01 1 032 


0001 00 




CMP 


TIME, #100 


820 


01 1 760 


103766 








BLO 


2$ 


821 


01 1 762 


01 1402 








MOV 


@RCSR,R2 


822 


01 1 764 


01 6403 


000004 






MOV 


XCSR(R4) ,R3 
1 


823 


01 1 770 


1 04001 








HLT 


824 


01 1 772 


005037 


01 1 032 






CLR 


TIME 


825 


01 1 776 


000757 








BR 


2$ 


826 


01 2000 


032737 


000001 


01 1014 


3$: 


BIT 


fFULL. DUPLEX, PARAM2 


827 


01 2006 


001 356 








BNE 


7$ 




1 201 


042700 


1 00000 






BIC 


#XFLG, STAT 


829 


012014 


004737 


013402 






JSR 


PCSTARTR 


830 


012020 


000746 








BR 


2$ 


831 


012022 


032737 


000001 


01 1014 


4S: 


BIT 


#FULL. DUPLEX, PARAM2 


832 


012030 


001420 








BEQ 


8$ 


833 


012032 


032700 


100000 






BIT 


fXFLG.STAT 


834 


012036 


001013 








BNE 


6$ 


835 


012040 


023727 


01 1032 


000100 




CMP 


TIME.^'IOO 


836 


012046 


103765 








BLO 


4$ 


837 


012050 


01 1402 








MOV 


@RCSR.R2 


838 


012052 


01 6403 


000004 






MOV 


XCSR(R4) ,R3 
1 


839 


012056 


104001 








HLT 


840 


012060 


005037 


01 1032 






CLR 


TIME 


841 


012064 


000756 








BR 


4$ 


842 


012066 


042700 


100000 




6$: 


BIC 


#XFLG,STAT 


843 


012072 


042700 


040000 




8$: 


BIC 


i^RFLG.STAT 


844 


012076 


005037 


01 1032 






CLR 


TIME 


845 


012102 


032777 


000200 


176734 




BIT 


*NODAT,«»SWR 


846 


0121 10 


001002 








BNE 


5$ 


847 


0121 12 


004737 


012300 






JSR 


PCTESTD 


848 


012116 


032777 


000020 


176720 


5S: 


BIT 


#LOOP,@SWR 


849 


0121 24 


001671 








BEQ 


$XLB 


850 


012126 


012737 


011710 


013056 




MOV 


#$XLB,BACK 


851 


012134 


000137 


012140 






JMP 


EOP 
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852 












**************************** 




853 














ROUTINE 


TO RETURN 




854 














TO MONITOR FOR 




855 














END PASS. 




856 












**************************** 




857 




















858 


012140 








EOP: 








859 


012140 


104414 


000340 








STPS,PRTY7 


;SET PS PRIORITY TO 7 


850 


012144 


016437 


000004 


012276 






MOV 


XCSR(R4) , QTPIE 


;SAVE TX CSR 


861 


012152 


042737 


177677 


012276 






BIC 


**C<TIE>, QTPIE 


jCLEAR ALL BUT TX IE. 


862 


012160 


042764 


000100 


000004 






BIC 


#TIE,XCSR(R4) 


•.CLEAR TX IE (EVEN IF IT WASN'T SET) 


863 


012166 


012766 


012226 


000002 






MOV 


CENTER, 2(SP) 


;SET FOR RETURN IF SW 14=1 


864 


012174 


010037 


013040 








MOV 


RO.SAVRO 


;SAVE REGISTER 


865 


012200 


010137 


013042 








MOV 


R1 ,SAVR1 


JSAVE REGISTER 1 


866 


012204 


01 0237 


013044 








MOV 


R2,SAVR2 


;SAVE REGISTER 2 


867 


012210 


01 0337 


013046 








MOV 


R3,SAVR3 


{SAVE REGISTER 3 


868 


012214 


01 0437 


013050 








MOV 


R4,SAVR4 


jSAVE REGISTER 4 


869 


012220 


01 0537 


013052 








MOV 


R5,SAVR5 


jSAVE REGISTER 5 


870 


012224 


000207 










RTS 


PC 


{RETURN TO CONTROL PROGRAM 


671 
872 


012226 








ENTER: 








873 


012226 


01 3700 


013040 








MOV 


SAVRO.RO 


{RESTORE RO 


874 


012232 


01 3701 


013042 








MOV 


SAVRl ,R1 


{RESTORE R1 


875 


012236 


01 3702 


013044 








MOV 


SAVR2.R2 


{RESTORE R2 


876 


012242 


01 3703 


013046 








MOV 


SAVR3,R3 


{RESTORE R3 


877 


012246 


01 3704 


013050 








MOV 


SAVR4,R4 


{RESTORE R4 


878 


012252 


013705 


013052 








MOV 


SAVR5,R5 


{RESTORE R5 


879 


012256 


01 2737 


177777 


013054 






MOV 


#-1 , DELAY 




880 


012264 


053764 


012276 


000004 






BIS 


QTPIE, XCSR(R4) 


{IF ORGINALLY SET; SET TX IE 


881 


012272 


000177 


000560 








UMP 


©BACK 




882 


012276 


000000 






QTPIE: 


000000 






883 




















884 




















885 




















886 












****** 


*************************** 


887 














SUBROUTINE TO CHECK 




888 














RECEIVER DATA. 




889 












************** 


******************* 


890 


012300 


01 3746 


011056 




TE.STD: 


MOV 


ERDBR, -(SP) 


{WAS THERE A RECEIVE ERROR? 


891 


012304 


001413 










BtQ 


TSlDAf 


{DK IF NO 


892 


012306 


032777 


020000 


176530 






BIT 


#BIT13,9SWR 


{INHIBIT PRINTOUTS? 


893 


012314 


001007 










BNE 


TSTDAT 


{BR IF YES 


894 


012316 


104400 


012500 








TYPE 


,MSGO 


{<15><12>THERE WAS A RECEIVE ERROR. RBUF- 


895 


012322 


004077 


176502 








JSR 


R0,9B2O16 


{ PRINT CONTENTS OF RBUF 


896 


012326 


005746 










TST 


-(SP) 




897 


012330 


104400 


012561 








TYPE 


,MSG1 


;<15><12> 


898 


012334 


01 3701 


011022 




TSTDAT! 


MOV 


IXDA, R1 


{SETUP XMIT DATA ADDR 


899 


012340 


013702 


01 1020 








MOV 


XRDA, R2 


{SETUP RCV DATA ADDR 


900 


012344 


122122 






SCAN4: 


CMPB 


(R1)+, (R2)* 


{DATA OK ? 


901 


012346 


001776 










BEQ 


SCAN4 


{BR IF OK 


902 


012350 


123741 


01 1040 








CMPB 


TX.TERM,-{R1) 


{IS IT END OF DATA 


903 


012354 


001447 










BEQ 


TESTDX 


{BR IF YES 


904 


012356 


122742 


000002 








CMPB 


#002, -(RS) 




905 


012362 


001005 










BNE 


2$ 




906 


012364 


010237 


012372 








MOV 


R2,1$ 




907 


012370 


104400 










TYPE 







CZDLODO DL11 ITEP OVERLAY MACY11 30A(1052) 23-MAR-78 16:06 PAGE 20 

CZDL0D.P11 23-MAR-7a 15:25 



SEQ 0019 
SEO 0019 



908 


01237 2 


000000 






1 $ : 


. WORD 









909 


0123 74 


000437 








BR 


TESTDX 






91 


012376 








2$ : 










9 1 1 


0123 76 


105712 








TSTB 


(R2) 






91 2 


012400 


00 1 435 








BEO 


TESTDX 


;BR IF YES 




913 


012402 


1 22721 


0001 77 






CMPB 


# 1 77 , ( R1 ) + 


;IS IT FILL CHAR? 




9 1 4 


01 2406 


00 1 756 








BEO 


SCAN4 


■,BR IF YES 




915 


01 24 1 


005301 








DEC 


R1 


; BACKUP 




916 


01 24 1 2 


122722 


0001 77 






CMPB 


#177, (R2)4- 


;IS IT FILL? 




91 7 


012416 


00 1 752 








BEQ 


SCAN4 


;BR IF YES 




918 


01 2420 


000240 






SCANS t 


NOP 




;DATA ERROR 




91 9 


012422 


032777 


020000 


1 764 14 




BIT 


(S'BITI 3 ,®SWR 


; INHIBIT PRINTOUTS 




920 


01 2430 


00 1 01 6 








BNE 


DERR 


;BR IF YES 




92 1 


01 2432 


1 04400 


012564 






TYPE 


,MSG2 


;<15><12>RECEIVED DATA a <15><12> 


922 


012436 


01 3737 


011020 


012446 




MOV 


IRDA, RDAX 


; SETUP DATA ADRESS 




923 


01 2444 


104400 








TYPE 




{PRINT RECEIVED DATA 




924 


1 2446 


OOQOOO 






RDAX ; 







; RECEIVED DATA ADDR. 




925 


01 2450 


' 1 04400 


01 261 1 






TYPE 


,MSG3 


;<15><12>DATA SHOULD 


BE<15><12> 


926 


1 2'^'^4 


01 3737 


01 1 022 


01 2464 




MOV 


IXDA, .+10 


•.SETUP ADDR. 




927 


01 2462 


1 04400 








TYPE 




; PRINT GOOD DATA 




928 


01 2464 


01 1 022 








IXDA 








929 


01 2466 


111103 






DERR : 


MOVB 


(R1),R3 JSETUP 


XMIT DATA 




930 


012470 


1 1 4202 








MOVB 


-(R2) ,R2 


; SETUP RCV DATA 




931 


01 2472 


1 04007 








HLT+7 




;DATA ERROR HALT 




932 


01 2474 


005726 






TESTDX : 


TST 


(SP) + 


;POP STACK 




933 


01 2476 


000207 








RTS 


PC 


•.RETURN FROM SUB/ROUT 


934 
935 


01 2500 


00501 5 


0441 24 


051 1 05 


MSGO : 


. ASCIZ 


<15><12>/THERE 


WAS A RECEIVER ERROR. 


REGISTER (SEL 2) -/ 


( 1 ) 


01 2561 


015 


00001 2 




MSGI : 


. ASCIZ 


<15><12> 






( 1 ) 


01 2564 


005015 


042522 


042503 


MSG2 : 


. ASCIZ 


<15><12>/RECEIVED DATA = /<15><12> 




( 1 ) 


01261 1 


015 


04201 2 


0521 01 


MSG3 : 


. ASCIZ 


<15><12>/DATA SHOULD BE/<15><12> 




( 1 ) 


01 2634 


00501 5 


0461 20 


040505 


MSG4 : 


. ASCI I 


<15><12>/PLEASE 


MAKE CONNECTION (DIAL 


NU'BER)./ 


( 1 ) 


01 2703 


015 


05341 2 


04251 




. ASCIZ 


<15><12>/WHEN CONNECTION COMPLETE; HIT 


CONTINUE SWITCH. /<15><12> 




1 2766 


00501 5 


0461 20 


040505 


MSG5* 


. ASCIZ 


<15><12>/PLEASE 


MAKE CONNECTION (DIAL 


NUMBER). /<15><12> 












.EVEN 










013040 


000000 






SAVRO: 











936 


013042 


000000 






SAVR1 : 











937 


01 3044 


000000 






SAVR2: 











938 


013045 


000000 






SAVR3: 











939 


013050 


000000 






SAVR4: 











940 


013052 


000000 






SAVR5: 











941 


01 3054 


000000 






delay: 











942 


013056 


000000 






back: 











943 


013050 


000000 






stop: 











944 
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945 










; i«« 




946 












INITI 


947 










;#♦**** 




948 














949 


013062 








STARTX: 




950 


01 3062 


005737 


013054 






TST 


951 


013066 


001416 








BEO 


952 


013070 


005037 


013534 






CLR 


953 


013074 


01 2737 


000007 


013536 




MOV 


954 


01 31 02 


062737 


000001 


013534 




ADD 


955 


013110 


001374 








BNE 


956 


013112 


005337 


013536 






DEC 


957 


013116 


001371 








BNE 


958 


0131 20 


005037 


013054 






CLR 


959 


0131 24 


01 3737 


01 1022 


01 1070 


1$: 


MOV 


960 


0131 32 


052714 


000002 






BIS 


961 


0131 36 


005737 


013060 






TST 


962 


0131 42 


001005 








BNE 


953 


01 31 44 


104400 


012634 






TYPE 


964 


013150 


000000 








HALT 


965 


013152 


005137 


013060 






COM 


966 


013156 


032737 


000001 


011014 


2$: 


BIT 


967 


013164 


001003 








BNE 


968 


0131 66 


032714 


010000 






BIT 


969 


0131 72 


001375 








BNE 


970 


013174 


052714 


000004 




3$: 


BIS 


971 


013200 


032714 


000002 






BIT 


972 


013204 


001430 








BEO 


973 














974 


013206 


032714 


020000 




CTSW: 


BIT 


975 


013212 


001017 








BNE 


976 


013214 


023727 


011032 


000036 




CMP 


977 


013222 


103771 








BLO 


978 


013224 


01 1402 








MOV 


979 


013226 


01 6403 


000004 






MOV 


980 


013232 


032777 


010000 


175604 




BIT 


981 


013240 


001001 








BNE 


982 


013242 


104002 








HLT+2 


983 


013244 


005037 


01 1032 




1$: 


CLR 


984 


013250 


000756 








BR 


985 


013252 


005737 


01 1016 




2$: 


TST 


986 


013256 


001403 








BEO 


987 


013260 


032714 


010000 




3$: 


BIT 


988 


013264 


001775 








BEO 


989 
990 


013266 


005737 


01 1024 




CTSOK: 


TST 


991 


013272 


001416 








BEO 


992 


01 3274 


005037 


013534 






CLR 


993 


013300 


01 2737 


000030 


013536 




MOV 


994 


01 3306 


062737 


000001 


013534 




ADD 


995 


013314 


001374 








BNE 


996 


013316 


005337 


013536 






DEC 


997 


013322 


001371 








BNE 


998 


013324 


005037 


01 1024 






CLR 


999 


013330 


032737 


000001 


011014 


2$: 


BIT 


1000 


013336 


001415 








BEQ 
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INITIALIZE TRANSMIT SUBROUTINE 



SEQ 0020 
SEQ 0020 



DELAY 
1$ 

TEMPI 
#7,TEMP2 
#1 , TEMPI 
.-6 
TEMP2 
.-14 
DELAY 
IXDA, 
#DTR,®RCSR 
STOP 
2$ 

,MSG4 



;IF SW04=1 & SW14=0 WAIT BEFORE TURINING ON TX 
;N0 GO AHEAD AND TURN ON TX 
; PREPARE FOR DELAY 



•.INCREMENT DELAY. 



XDA 



'.ZERO POINTER. 

•.SETUP XMIT DATA ADDR. 

;SET REQUEST TO SEND 



STOP 

#FULL.DUPLEX,PARAM2;FULL DUPLEX? 



3$ 

#10000, @RCSR 
.-4 

#ROTS,@RCSR 
#DTR, mCSR 
CTSOK 



@RCSR 



#CTS, 
2$ 

TIME, #36 
CTSW 

@RCSR, R2 
XCSR(R4) ,R3 
#SW12,@SWR 
1$ 

TIME 
CISW 
PARAM3 
CTSOK 

#10000,S»RCSR 
3$ 

SETTLE 
2$ 

TEMPI 

#14*2,TEMP2 
#1 .TEMPI 
.-6 
TEMP2 
.-14 
SETTLE 

#FULL. DUPLEX, PARAM2; FULL DUPLEX? 
1$ ;BR IF NO 



BR IF YES 
CARRIER UP? 
BR IF YES 

IS THIS A DL11-E? 
BR IF NO 

IS CLEAR TO SEND SET? 
BR IF YES 
30 SECS ELASPED? 
BR IF NO 
SETUP RCV CSR 
SETUP XMIT CSR 
INHIBIT PRINTOUTS? 
BR IF YES 

PRINTOUT 'WAITING TO XMIT' 
RESET TIMER 
WAIT SOiviE lYiORE 
STANDARD MODEM? 
IF NO, BR. 
IS CARRIER UP? 
BR IF NO 

CONNECTION JUST MADE? 
BR IF NO 

YES PREPARE FOR DELAY 
INCREMENT DELAY 



; ;++D 

; ;++D 



•.CLEAR DELAY FLAG 



CIDLODO 0L11 ITIP QVIBLAY ' S^IAGY ! 1 lOAM ©ii ) iS"MAR-?S ISiSS PAQigg 119 0021 

eiSLQo.pii sa-MAH-Ti litis 110 eeii 



1 991 


01 3340 


032700 


§06004 






IIT 


4'KL§,M0£}| 


fXLS MODE? 


1 002 


1 3344 


00 1 41 § 








§19 


11 


ISR IF NO 


1 003 


01 334S 


01 2737 


177777 


013542 




MOV 


^'•l .TRNFLQ 


{SET FLAa 


1 004 


01 33i4 


0S27S4 


000190 


000004 




ei§ 


#TIi,XCSR(R4) 


JSET INTERUPT ENABLE 


1 00i 


01 3362 


000001 








WAIT 






1 008 


01 33S4 


001737 


01i§4d 






TIT 


SNCFLO 


1 FIRST CHAR RECEIVED YET? 


1 007 


01 3370 


O0137S 








SNI 


.-4 


|§R IF NO 


1 008 


01 3372 


0§i7§4 


000160 


000004 


1|i 


BIS 


(S'TIi, KeSR(R4)!ilT XMIT INTERRUPT INASLI 


1 009 


61 3400 


000207 








HTS 


PC 


JEXIT FROM SUBROUTINE 


1010 
1011 










j«4l«$«!»Sl«fN«ii««««««««$l«(l<l«l«>!;t«lil)!llf)««i|i«!t^#«llt)««»»«lt)$«llN«««««itl« 


1 01 § 










! 


INITIAklll RiCilVER SUSROUTlNi 


1 eii 












1014 


013402 


001717 


OliOSO 






TST 


STOP 


{FIRST TIME HERE? 


1011 


013401 


001012 








SNI 


IS 


1 BR IF NO 


101S 


013410 


012714 


000003 






SIS 


4'DTR,@RC§R 


{SET DTR 


101? 


013414 


1 04400 


0127@§ 






TYPE 


,Msa§ 


{MAKE CONNECTION 


1 01S 


01 3420 


01 S737 


177777 


011024 


211 


MOV 


«!/«1 .SITTLI 


lYES SET DELAY FLAG 


,1011 


013423 


01 3737 


177777 


OlSOiO 




MOV 


,STOP 




1 020 


013434 


032737 


000001 


011014 


lis 


ilT 


(HFULL . DUPUiX , PARAM2 1 FULL DUPiiX? 


10§1 


013442 


001410 








SEQ 


31 


{BR IF NO 


1022 


013444 


032700 


000004 






ilT 


#XL§,MODI 


iXLi MODE? 


1023 


01 3430 


001403 








SEQ 


3$ 


{BR IF NO 


1024 


013452 


00S037 


013534 






CLR 


TEMPI 


{START DELAY 


102S 


01345S 


005237 


013534 






INC 


TEMPI 




102i 


013432 


001375 








5NE 


.-4 




1027 


013464 


01S737 


177777 


013540 


31 s 


MOV 


#-1 , SNCFLQ 


{SET FLAG 


1028 


01 3472 


01 3737 


01 10S0 


011065 




MOV 


IRDA, RDA 


{SETUP RCV DATA ADDR 


1029 


013S00 


012737 


001000 


011064 




MOV 


/^lOOO, RCC 


{SETUP RCV CHAR COUNT 


1030 


013503 


042700 


040000 






5IC 


*RFLQ,STAT 


{CLEAR RFLQ 


1031 


013S12 


005037 


011054 






CLR 


ERCSR 


{RESET ERROR RECORDS 


1032 


013516 


005037 


011056 






CLR 


ERDBR 




1033 


013522 


005764 


OOOOOS 






TST 


R5UF(R4) 




1034 


013526 


052714 


000143 






BIS 


#RIE+DTR+DIE4-RE 


@RCSR{SET INTERRUPT ENABLES 


1035 


013532 


000207 








RTS 


PC 


{EXIT FROM SUBROUTINE 


103S 
1037 


013534 


000000 






TEMPI J 









1038 


01353S 


000000 






TEMP2! 









1039 


013540 


000000 






sncflq: 









1040 


013542 


OUOOOO 
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23 


CZDLOD. 
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1041 












^*#m***** 


0f,$M>************** *************** 


1042 












TRANSMIT INTERRUPT SERVICE ROUTNE 


1043 












**#«*^!lit*****#lifJtl**lil*********************** *************** 


1044 


013544 


000240 






XISR: 


NOP 








1045 


013546 


127737 


175316 


011040 




CMPB 


fXDA.TX.TERM 


{FINISHED XMITTING? 


1046 


013554 


001010 








eNE 


XISR1 




{BR IF NO 


1047 


013556 


052700 


100000 






BIS 


#XFLG, 


STAT 


{SET XMIT COMPLETE FLAG 


1048 


013562 


042714 


000004 






BIC 


^RQTS, 


@RCSR 


{RESET REQUEST TO SEND 


1049 


013566 


042764 


000100 


000004 




BIC 


#TIE, 


XCSR(R4) {RESET XMIT INTERRUPT ENABLE 


1050 


013574 


000417 








BR 


XISR2 






1051 




















1052 


013576 


1 17764 


175266 


000006 


XISR1 J 


MOVB 


»XDA, 


XBUF(R4) {XMIT NEXT CHAR. 


. 1053 


013604 


032777 


000100 


175232 




BIT 


#100, 


9SWR 


{MONITOR OUTPUT? 


1054 


013612 


001406 








BEO 


NOXMON 




{BR IF NO 


1055 


013614 


105777 


175256 






TSTB 


©TPS 




{ IS TTY AVAILABLE 


1056 


013620 


100003 








BPL 


NOXMON 




{BR IF NO 


1057 


013622 


117777 


175242 


17S2S0 




MOVB 


•XDA, 


•TPB 


{TYPE THE CHAR 


1058 


013630 








NOXMON! 










1059 


013630 


005237 


011070 






INC 


XDA 




{ INCRMENT ADDRESS 


1060 


013634 


005737 


013542 




XISR2J 


tST 


TRNFLQ 




{FIRST CHAR? 


1061 


013640 


001403 








BEQ 


1$ 




{BR IF NO 


1062 


013642 


042764 


000100 


000004 




BIC 


«CTIE,XCSR(R4) 


{CLEAR INTERUPT ENABLE 


1063 


013650 


005037 


01103S 




1$: 


CLR 


TIME 




{RESET TIMER 


1064 


013654 


005037 


013542 






CLR 


TRNFLQ 




{CLEAR FLAG 


1065 


013660 


000002 








RTI 






{RETURN FROM INTERRUPT 


1066 










• * « * 4. * * 4 


^i***if****m*** ************************** ***************** 


1067 












RECEIVE 


INTERRUPT SERVICE ROUTINE 


1068 










',li^i1i*i),<^il> 01,* ^,^i,$*tlfiti»ii0tf*t **************************** 


1069 


013662 


00^240 






RISR: 


NOP 








1070 


013664 


105714 








TSTB 


ORCSR 




{ IS RECEIVER DONE BIT SET 


1071 


013666 


100055 








BPL 


RISR2 




{BR IF NO 


1072 


013670 


116401 


000002 






MOVB 


RBUF(R4) ,R1 


{STORE CHAR. 


1073 


.013674 


142701 


000200 






BICB 


^200, 


R1 


{STRIP A BIT 


1074 


013700 


110177 


175162 






MOVB 


R1 , 


@RDA 


{MOVE CHAR TO INBUP 


'1075 


013704 


032777 


000040 


175132 




BIT 


#40, 


f>SWR 


{MONITOR INPUT? 


1076 


013712 


001405 








BEQ 


NORMON 




{BR IF NO 


1077 


013714 


105777 


175156 






TSTB 


#TPS 




{IS TTY AVAILABLE? 


1078 


013720 


100002 








BPL 


NORMON 




{BR IF NO 


1079 


013722 


110177 


175152 






MOVB 


R1 , 


@TPB 


{TYPS THE CHAR 


10B0 


013726 








NORMONS 










1061 


013726 


005237 


011066 






INC 


RDA 




{BUMP POINTER 


1082 


013732 


105077 


175130 






CLRB 


@ROA 




{CLEAR NEXT CHAR POSITION 


1083 


013736 


005337 


01t064 






DEC 


RCC 




{DECREMENT CHAR. COUNTER 


1084 


013742 


001010 








BNE 


IS 




{BR IF BUFFER NOT FULL 


1085 


013744 


042714 


000100 






BIC 




@RCSR 


{RESET INTERRUPT ENAB 


1086 


013750 


01 1402 








MOV 


@RCSR, 


R2 


{SETUP RCV CSR 


1087 


013752 


016403 


000004 






MOV 


XCSR(R4) ,R3 


{SETUP XMIT CSR 


1088 


013756 


104006 








HLT+6 






{RECEIVER BUFFER FULL 


1069 


013760 


004737 


013403 






USR 


PC.STARTR 


{ INITIALIZE RECEIVER 


1090 

1091 


013764 


123701 


011041 




1$: 


CMPB 


RX.TERM 


,R1 


{IS IT LINE FEED? 


1092 


013770 


001004 








BNE 


RISR1 




{BR IF NO 


1093 


013772 


042714 


000140 






BIC 


ifRIE-fOIE.ORCSR 


{DISABLE INTERRUPTS 


1094 


013776 


052700 


040000 






BIS 


#RFLQ, 


STAT 


{SET RCVR COMPLETE FLAG 


1095 


014002 


005764 


000002 




RISR1 : 


TST 


RBUF{R4) 


{ IS THERE A DATA ERROR 


1096 


014006 


100005 








BPL 


RISR2 




{BR IF NO 
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1 097 


014010 


01 1437 


01 1054 




MOV 


@RCSR, ERCSR 


;SAVE RCSR 


1098 


014014 


016437 


000002 011056 




MOV 


RBUF(R4) .ERDBR 


;SAVE RDBR 


1099 


014022 


005714 




RISR2: 


TST 


@RCSR 


;IS THERE A DATA SET STATUS 


1 100 


014024 


100004 






BPL 


RISR3 


•,BR IF NO 


1 101 


014026 


01 1437 


011060 




MOV 


@RCSR, DSSTAT 


;SAVE STATUS 


1 102 


014032 


052700 


020000 




BIS 


#DSFLG, STAT 


;SET FLAG 


1 103 


014036 


005037 


013540 


RISR3: 


CLR 


SNCFLG 


; CLEAR FLAG 


1 104 


014042 


605037 


011032 




CLR 


TIME 


; RESET TIMER 


1 105 
1 106 


014046 


000002 






RTI 




•.RETURN FROM INTERRUPT 


11 07 




000001 






.END 
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CROSS 1 


REFERENCE TABLE — USER : 


BA 


01 1004 


587# 


646 






BACK 


013056 


707* 


735* 


770* 


850* 881 942* 


BITO = 


000001 


581# 








BITI s 


000002 


581# 








BIT10 = 


002000 


581# 








BIT11 = 


004000 


581 








BIT12 = 


010000 


581# 








BIT13 = 


020000 


581<^ 


61 6# 


892 


919 


BIT14 = 


040000 


581 # 








BIT15 = 


100000 


581# 








BIT2 = 


000004 


581# 








BITS = 


000010 


581# 








BIT4 = 


000020 


581 # 








BITS = 


000040 


581 








B1T6 = 


0001 00 


581# 








BIT7 = 


000200 


SBU 








BITS = 


000400 


581# 








BIT9 = 


001000 


581fS' 








B2016 


01 1030 


597* 


895 






CD 


010000 


581 # 








CIS 


020000 


581# 


974 






CTSOK 


013266 


972 


986 


990# 




CTSW 


013206 


974# 


977 


984 




DELAY 


013054 


659* 


879* 


941# 


950 958* 


DERR 


012466 


920 


929# 






DIE 


000040 


5BU 


1034 


1093 




DISPLA 


01 1046 


607# 








DL1 1 


01 1000 


586/f 








DSC 


100000 


581# 








DSFLG = 


020000 


581 


615# 


1102 




DSSTAT 


01 1060 


622# 


1101* 






DTR = 


000002 


581 # 


960 


971 


1016 1034 


ENTER 


012226 


863 


8720 






EOP 


012140 


708 


736 


771 


851 858# 


ER » 


100000 


581 # 








ERCSR 


01 1054 


620* 


1031* 


1097* 




ERDBR 


011056 


621# 


890 


1032* 


1098* 


FE 


.020000 


581 # 








FLAG 


01 1042 


605ii' 








FULL.D= 


000001 


634*' 


810 


826 


831 966 999 


GO 


011164 


658# 








ILB 


000010 


581« 


667 






IRDA 


011020 


593# 


774 


899 


922 1028 


IXDA 


01 1022 


594# 


775 


898 


926 928 959 


KBDIN a 


104416 


581# 


689 


720 


752 809 


LOOP a 


000020 


581 # 


705 


733 


768 848 


MSGO 


012500 


894 


935# 






MSG1 


012561 


897 


935# 






MSG2 


012564 


921 


935# 






MSG3 


01261 1 


925 


935# 






MSG4 


012634 


935# 


963 






MSGS 


012766 


9351^ 


1017 






NODAT = 


000200 


581# 


701 


764 


845 


NORMON 


013726 


1076 


1078 


1080* 




NOXMON 


013630 


1054 


1056 


1058* 




OR a 


040000 


5811^ 
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owl ^ 

OWD « 
PARAM1 
PARAM2 
PARAM3 
PE ^ 
PRIOR 
• PRTYO ^ 
PRTY1 = 
PRTY2 => 
PRTY3 = 
PRTY4 s 
PRTY5 a 
PRTY6 ^ 
PRTY7 = 
OTPIE 
RA = 
RBUF » 
RCC 

rd' 

ROA 

RDAX 

RE 

RFLG » 

RI = 

RIE 

RISR 

RISR1 

RISR2 

RISR3 

RIV 

ROTS 

RWAIT s 

RX.TER 

SAVRO 

SAVR1 

SAVR2 

SAVR3 

SAVR4 

SAVR5 

SCAN4 

SCANS 

SETTLE 

SNCFLG 

SRCSR 

SRD 

START 

STARTR 

STARTX 

STD a 

STOP 

STPS ^ 

SWR 

SW12 a 
SXCSR 



000002 

000001 

011012 

011014 

011016 

010000 

011010 

000000 

000040 

000100 

000140 

000200 

000240 

000300 

000340 

012276 

004000 

000002 

01 10S4 

000200 

011066 

01244S 

000001 

040000 

040000 

000100 

013662 

014002 . 

014022 

014036 

01 1006 

000004 

104410 

01 1041 

013040 

013042 

013044 

013046 

013050 

013052 

012344 

012420 

01 1024 

013540 

011052 

002000 

01 1 102 

013402 

013062 

000010 

013060 

104414 

01 1044 

010000 
011050 



581# 
581 f 
590/? 
591# 
592^ 
581 if 
589# 
581# 
581# 
581iV 
581 ^' 
581* 
581* 
581* 
581* 
860» 
581* 
581* 
625* 
581* 
626* 
922* 
581* 
614* 
581* 
581* 
643 

1092 
•1071 

1100 
588* 
561* 
581* 
603* 
664« 
865<* 
866* 
867* 
868* 
869* 
900* 
918* 
595* 

1006 
619* 
581* 
600 
690 
721 
581* 
660* 
581* 
606* 

1053 
581 # 
618* 
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664 

661 
647 

648 810 826 831 966 999 

985 

643 645 



SEO 0025 
SEO 0025 



1033 
1029* 

1028* 
924* 

1034 
691 

1034 
1069* 
1095* 
1096 
11 03* 
641 
970 

1091 
873 
874 
875 
876 
877 
878 
901 

990 
1027* 



1072 
1083* 



704 
1085 



935* 
936* 
937* 
938* 
939* 
940* 
914 

998* 
1039* 



638* 

753 812 
784 813 

943* 961 
859 

639 701 
1075 
980 



882* 
1095 



1074* 1081* 



755 
1093 



1018* 

1 103* 



829 
949* 



965* 
705 



1014 
733 



1019* 
764 



CZDLQDO 


DL1 1 ITEP 


OVERLAY 


MACY1 1 


30A( 1052) 


23-MAR 


-78 16:06 PAGE 


28 


CZDLOD . P1 1 23- 


MAR~78 15:25 




CROSS REFERENCE 


TABLE — 


USER SYMBOLS 


TEMP1 


013534 


952* 


954* 


992* 


994* 


1024* 


1025* 


1037* 


TEMP2 


013536 


953* 


956* 


993* 


996* 


1038* 






TESTD 


012300 


703 


766 


847 


890* 








TESTDX 


012474 


903 


909 


912 


932* 






1062 


TIE 


000100 


581* 


861 


862 


1004 


1008 


1049 


TIME 


01 1032 


598* 


658* 


693 


698* 


722* 


725 


730* 


814* 


819 


824* 


835 


840* 


844* 


976 


TKB 


011074 


630* 














TKS 


01 1072 


629* 














TPB 


01 1 100 


632* 


1057* 


1079* 










TPS 


01 1076 


631* 


1055 


1077 










TR « 


000200 


581* 














TRNFLG 


013542 


1003* 


1040* 


1060 


1064* 








TSTDAT 


012334 


891 


893 


898* 










TX.TER 


011040 


601* 


902 


1045 










TYPE = 


104400 


581* 


894 


897 


907 


921 


923 


925 


XBUF s 


000006 


581* 


1052* 












XCC 


01 1062 


624* 














XCSR ^ 


000004 


581* 


650* 


696 


728 


760 


790 


822 






1008* 


1049* 


1062* 


1087 








XOA 


01 1070 


627* 


776* 


959* 


1045 


1052 


1057 


1059* 


XFLG = 


100000 


613* 


723 


732 


785 


794 


815 


828 


XISR 


013544 


644 


1044* 












XISR1 


013576 


1046 


1052* 












XISR2 


013634 


1050 


1060* 












XLB 


000004 


581* 


670 


1001 


1022 








XWAIT a 


104412 


581* 














$ILB 


011460 • 


669 


752* 


795 










SOWI 


011254 


666 


689* 


709 










$0W0 


'01 1362 


663 


720* 


737 










SXLB 


011710 


672 


809* 


849 


850 










014050 


585* 


674 


778 


926* 


955 


957 


969 



754* 
983* 



757 
1063* 



762* 
1104* 



SEQ 0026 
SEQ 0026 



792* 



927 963 1017 

838 860 862* 880* 

833 842 1 047 



995 997 1007 1026 



ABS. 014050 



ERRORS detected: 

DSK2 : CZDLOD , OSKZ : CZDLOD. SEQ-DSKZ : ITEPl .MAC , DSKZ : CZDLOD. PI 1 
RUN-TIME: 3 5 .3 SECONDS 
RUN-TIME RATIO: 65/9«7.1 
CORE used: 16K (31 PAGES) 
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